with Ada.Text_Io;
with Ada.Integer_Text_Io;
use Ada.Integer_Text_IO;
use Ada.Text_Io;
with Fakt;
with Lnko;
with Fakt_Rek;

procedure F1 is
   type Matrix is array (Integer range <>, Integer range <>) of Integer;
   tomb : Matrix(1..10,1..10);
begin
   for I in Tomb'range(1) loop
      for J in Tomb'range(2) loop
         begin
            Tomb(I):=I;
         end loop;
   end loop;
   for I in Tomb'range loop
      Put(Tomb(I));
   end loop;
end F1;


